home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib07.dsk / DAFFY DEFINITIONS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  59 lines
  1. 10  REM  ******************************
  2. 20  REM  **    DAFFY DEFINITIONS     **
  3. 30  REM  **     BY LES SCHMELTZ      **
  4. 40  REM  **  COPYRIGHT (C) 1982 BY   **
  5. 50  REM  **     MICRO-SPARC, INC.    **
  6. 60  REM  **     LINCOLN, MA 01773    **
  7. 70  REM  ******************************
  8. 80  HOME : VTAB 6: HTAB 12: INVERSE : PRINT "DAFFY DEFINITIONS": NORMAL 
  9. 90  PRINT : PRINT  TAB( 13);"BY LES SCHMELTZ"
  10. 100  SPEED= 50: PRINT : PRINT "SEE IF YOU CAN FIGURE OUT WHAT TERM IS  BEING DEMONSTRATED ON THE SCREEN.": PRINT : PRINT "THE COMPUTER WILL TELL YOU THE CORRECT  TERM BEFORE GOING ON TO THE NEXT."
  11. 110  PRINT : PRINT : PRINT  TAB( 16);: INVERSE : PRINT "GOOD LUCK!": NORMAL 
  12. 120  CALL  -936: VTAB 12: HTAB 16: SPEED= 10: PRINT "*@#%?%&$"
  13. 130  VTAB 12: HTAB 16: FLASH : PRINT "CENSORED": NORMAL 
  14. 140  VTAB 23: PRINT "THAT, OF COURSE, WAS THE 'CURSE R'"
  15. 150  PRINT "GET THE IDEA?  OK, LET'S TRY ANOTHER--"
  16. 160  CALL  -936: VTAB 8: PRINT "HOT DAMN!": PRINT 
  17. 170  PRINT "TWENTY-THREE SKIDOO": PRINT 
  18. 180  PRINT "I LIKE IKE": PRINT : PRINT "HOW ABOUT THAT?"
  19. 190  VTAB 8: HTAB 25: INVERSE : PRINT "TRITE": NORMAL 
  20. 200  VTAB 10: HTAB 25: INVERSE : PRINT "OUT OF DATE": NORMAL 
  21. 210  VTAB 12: HTAB 25: INVERSE : PRINT "POLITICAL": NORMAL 
  22. 220  VTAB 14: HTAB 25: INVERSE : PRINT "DULL": NORMAL 
  23. 230  VTAB 23: PRINT "DID YOU GUESS CORRECTLY THAT WE WERE    'EVALUATING EXPRESSIONS'?  GOOD FOR YOU!"
  24. 240  SPEED= 255: HOME : PRINT 1: PRINT 2: PRINT 3: PRINT 4: PRINT 5: PRINT 6
  25. 250  PRINT 7: PRINT 8: PRINT 9: PRINT 10: PRINT 11: PRINT 12
  26. 260  PRINT 13: PRINT 14: PRINT 15: PRINT 16: PRINT 17: PRINT 18
  27. 270  PRINT 19: PRINT 20: PRINT 21: PRINT 22: PRINT 23: PRINT 24;:
  28. 280  SPEED= 10: POKE 33,30: POKE 32,10: VTAB 10: PRINT : PRINT "THIS IS TO DEMONSTRATE THE 24": PRINT 
  29. 290  PRINT "VERTICAL LINE CAPACITY OF THE": PRINT : PRINT "APPLE VIDEO DISPLAY."
  30. 300  VTAB 11: CALL  -958: PRINT "READY FOR SOME MORE TERMS?": TEXT 
  31. 310  HOME : VTAB 12: PRINT  TAB( 18);"OEDIV"
  32. 320  VTAB 23: PRINT "WHAT? YOU DIDN'T RECOGNIZE": PRINT "INVERSE VIDEO?"
  33. 330  HOME : VTAB 6: PRINT "HERE'S AN IMMEDIATE EXECUTION COMMAND--"
  34. 340  PRINT : PRINT  TAB( 18);: FLASH : PRINT "FIRE!": NORMAL 
  35. 350  PRINT : PRINT : PRINT "HOW ABOUT A DEFERRED EXECUTION COMMAND-"
  36. 360  PRINT : PRINT  TAB( 18);"READY"
  37. 370  PRINT : PRINT  TAB( 19);"AIM"
  38. 380  PRINT : PRINT  TAB( 18);: FLASH : PRINT "FIRE!": NORMAL 
  39. 390  SPEED= 255: HOME : POKE 33,13: POKE 32,14: POKE 34,6: POKE 35,18
  40. 400  VTAB 6: PRINT "TEXTTEXTTEXT": VTAB 7
  41. 410  PRINT "E"; SPC( 10);"E": PRINT "X"; SPC( 10);"X"
  42. 420  PRINT "T"; SPC( 10);"T": PRINT "T"; SPC( 10);"T"
  43. 430  PRINT "E"; SPC( 10);"E": PRINT "X"; SPC( 10);"X"
  44. 440  PRINT "T"; SPC( 10);"T"
  45. 450  PRINT "T"; SPC( 10);"T": PRINT "E"; SPC( 10);"E"
  46. 460  PRINT "X"; SPC( 10);"X": PRINT "TEXTTEXTTEXT"
  47. 470  SPEED= 10: VTAB 7: HTAB 3: PRINT "ANYONE"
  48. 480  VTAB 9: HTAB 5: PRINT "FOR"
  49. 490  VTAB 11: HTAB 6: PRINT "A"
  50. 500  VTAB 13: HTAB 4: PRINT "TEXT"
  51. 510  VTAB 15: HTAB 3: PRINT "WINDOW?"
  52. 520  TEXT : SPEED= 255
  53. 530  HOME : VTAB 10: PRINT "HOPE YOU HAVE ENJOYED POKING FUN AT"
  54. 540  PRINT "SOME OF THE TERMS YOU WILL BE USING.": PRINT 
  55. 550  PRINT "WHY NOT TRY ADDING A FEW OF YOUR OWN"
  56. 560  PRINT "DAFFY DEFINITIONS?.  ALL THE COMMANDS"
  57. 570  PRINT "YOU NEED ARE CONTAINED IN ARTICLE 1."
  58. 580  PRINT : PRINT  TAB( 16);: INVERSE : PRINT "HAVE FUN!": NORMAL 
  59. 590  END